home *** CD-ROM | disk | FTP | other *** search
/ BCI NET / BCI NET Dec 94.iso / archives / programming / source / propgadget.lha / PropGadget / div.asm < prev    next >
Assembly Source File  |  1989-11-30  |  2KB  |  64 lines
  1. ;  An ill-favored thing, sir, but my own.
  2. ;  It is easier to be critical than correct.   Disraeli
  3. ;
  4. ;           Jerry J. Trantow
  5. ;           1560 A East Irving Place
  6. ;           Milwaukee, Wi 53202-1460
  7. ; written especially for Gadget calculation where result is always 32 bits
  8. ; 12 Jan 89 Now does a 64/32 with a 64 bit result
  9. ; 12 Jan 89 64 bit Quotient gets returned in the Dividend
  10. ; 14 Jan 89 passes divisor by value
  11. ; 15 Jan 89 Used Andi, ori to set X Flag
  12. ; 24 Jan 89 Division by 2^31 or larger doesn't seem to work
  13. ;  1 Feb 89 Implemented a 64/32 = 32 bit Quotient Division
  14. ;           NOTE : ONLY USE THE LOWER ULONG i.e. ONLY A 32 bit Quotient
  15. ; 
  16.     IFD LATTICE
  17.      CSECT text
  18.      XDEF _QuadDiv68000
  19.     ELSE
  20.          public    _QuadDiv68000
  21.     ENDC
  22.  
  23. _QuadDiv68000:
  24.         link    a5,#0
  25.         movem.l    d2/d3/d5,-(sp)    ; push registers on the stack
  26.  
  27.         move.l    8(a5),a0    ; Points to Dividend  (64 bits)
  28.         move.l  4(a0),d1    ; lower 32 of Dividend
  29.         move.l  (a0),d0         ; upper 32 of Dividend
  30.  
  31.         move.l    12(a5),d2       ; 32 bit divisor
  32.  
  33.         move.l  #64,d5          ; counter for 64 bit operation
  34.  
  35.         clr.l   d3              ; clear the test LONG WORD
  36.         asl.l   #1,d1           ; move a bit into the test position
  37.         roxl.l  #1,d0
  38.         roxl.l  #1,d3
  39.  
  40. _divide cmp.l   d2,d3           ; is dividend > divisor        
  41.         blt     _smallr
  42.  
  43. _largr  sub.l   d2,d3           ; dividend-=divisor
  44.         ori.b   #16,CCR         ; Q0=1  (X Flag)
  45.         bra     _shift
  46.  
  47. _smallr andi.b  #15,CCR         ; Q0=0  (X Flag)
  48.  
  49. _shift  roxl.l  #1,d1           ; shift Quotient into dividend
  50.         roxl.l  #1,d0           ; shift Dividend into test position
  51.         roxl.l  #1,d3
  52.  
  53.         subi.l  #1,d5           ; decrement the counter        
  54.         bne     _divide
  55.  
  56.         move.l   d0,(a0)        ; put the Quotient where it belongs
  57.         move.l   d1,4(a0)
  58.  
  59. .007    movem.l    (sp)+,d2/d3/d5
  60.         unlk    a5
  61.         rts
  62.         end
  63.  
  64.